#source("/var/www/psych/scriptR/testR.R")
x<-rnorm(100,0,1)
write.csv(x,file="t.csv")
write.csv(x,file="/var/www/psych/outputR/t.csv")
jpeg("/var/www/psych/outputR/test.jpg")
hist(x)
dev.off()
